Pacify gcc -Wpointer-sign

* src/print.c (print_object): SDATA → SSDATA.

diff --git a/src/print.c b/src/print.c
index c2beff0ed55332e51445f1df20879e19a73b5098..e2252562915d26ff05ee03e951580e2107a5b5cd 100644 (file)
--- a/src/print.c
+++ b/src/print.c
@@ -2267,7 +2267,7 @@ print_object (Lisp_Object obj, Lisp_Object printcharfun, bool escapeflag)
        }
       else if (STRINGP (num))
        {
-         strout (SDATA (num), SCHARS (num), SBYTES (num), printcharfun);
+         strout (SSDATA (num), SCHARS (num), SBYTES (num), printcharfun);
          goto next_obj;
        }
     }